home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok82.lha / Mini / Beispiele / fak.mini < prev    next >
Text File  |  1993-08-15  |  188b  |  20 lines
  1. PROGRAM
  2.  
  3. VAR
  4.   fak, i, j, k
  5.  
  6. BEGIN
  7.   fak = 1
  8.   i = 0
  9.   WHILE 12-i DO
  10.     i = i + 1
  11.     PRINT fak
  12.     j = fak
  13.     k = i
  14.     WHILE k DO
  15.       fak = fak + j
  16.       k = k - 1
  17.     END
  18.   END
  19. END
  20.